home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / LinieDemoIV.AMOS / LinieDemoIV.amosSourceCode
Encoding:
AMOS Source Code  |  1994-03-12  |  948 b   |  34 lines
  1. ' *************************************  
  2. ' *                                   *  
  3. ' *         Linie Demo IV V1.0        *  
  4. ' *      Written by Chris Hodges      *  
  5. ' *                                   *  
  6. ' *************************************  
  7. '
  8. Screen Open 0,320,256,32,0
  9. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls : Hide 
  10. Degree 
  11. Repeat 
  12.   Cls 0
  13.   For A=0 To 15
  14.     Colour A,Min(A,7)*$200+Min(Max(A-7,0),7)*$20
  15.     Colour 31-A,Min(A,7)*$200+Min(Max(A-7,0),7)*$20
  16.   Next 
  17.   S=Rnd(359) : R=1 : W=0 : C=0 : RS=Rnd(2)+1
  18.   Home : A$="DR�CKEN SIE EINE TASTE!"
  19.   For A=1 To Len(A$)
  20.     Pen 31-A : Print Mid$(A$,A,1);
  21.   Next 
  22.   Plot 160,128,0
  23.   Repeat 
  24.     Add R,RS : Add W,S
  25.     X=Cos(W)*(R/10) : Y=Sin(W)*(R/10)
  26.     Add C,1,1 To 31
  27.     Ink C : Draw To 160+X,128+Y
  28.   Until Inkey$<>""
  29.   For A=0 To 31 : Colour A,0 : Next 
  30.   Palette 0,$FFF,$888,$444,$222,$111
  31.   Shift Down 2,1,31,1
  32.   Repeat : I$=Inkey$ : Until I$<>""
  33.   Shift Off 
  34. Until I$="q"